Public Class Perfil

    Private Nome As String
    Public Aplicativos_Desejados As List(Of Aplicativo)

    Public Sub New(ByVal inNome As String)
        Nome = inNome
        Aplicativos_Desejados = New List(Of Aplicativo)
        get_Aplicativos_Desejados()
    End Sub

    Public Function get_Nome() As String
        Return Nome
    End Function

    Public Sub get_Aplicativos_Desejados()
        Dim ta As New sigeapDataSetTableAdapters.AplicativosTableAdapter
        Dim ds As New sigeapDataSet
        Dim p As sigeapDataSet.AplicativosRow

        ta.FillByPerfil(ds.Aplicativos, Me.get_Nome)

        For Each p In ds.Aplicativos
            Aplicativos_Desejados.Add(New Aplicativo(p.Nome, p.Versao))
        Next

    End Sub

End Class
